home *** CD-ROM | disk | FTP | other *** search
CLISP byte-compiled Lisp program | 1993-06-05 | 3.9 KB | 60 lines |
- (SYSTEM::VERSION '(SYSTEM::CLISP2 14. LISP:T 210292.))
- #Y(#:TOP-LEVEL-FORM-1 #13Y(00 00 00 00 00 01 D4 36 02 30 07 19 01) "SYSTEM")
- #Y(#:TOP-LEVEL-FORM-2 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
- DECODE-FLOAT-DECIMAL REMOVE-OLD-DEFINITIONS
- #Y(DECODE-FLOAT-DECIMAL
- #635Y(00 01 00 00 00 02 A9 30 D8 3E 03 AA 23 00 80 C3 AA 6A E8 AB D6 6A
- E6 8D 00 8E 01 D4 A9 6A E8 AD 86 28 09 AB D6 6A E6 78 AC 01 C0 EA
- 8E 06 A8 6A B3 AE D6 6A E6 6B 01 2E 01 06 89 06 80 9D AF 86 A8 81
- 6A AF D8 87 01 30 81 A2 AF E5 6B 02 35 D0 14 78 C8 02 DA AB 6B 00
- 34 78 AF 03 14 6A E8 B0 6B 00 34 88 01 2F 08 7D 02 AB DA 79 02 35
- 03 B1 AC 6B 02 35 B0 B2 6B 01 34 6A E6 78 AB 01 B2 AC 6B 02 35 6A
- AC B0 78 E6 00 01 02 AB DA 6A C9 AB DA 6A C8 A9 A9 87 01 2F 81 5B
- 16 02 AB AB 85 28 81 A1 89 08 81 A7 B1 86 A8 81 BB B5 89 02 81 C4
- 98 14 6B 02 35 B2 30 AB 14 6A E6 6A AB E8 30 E6 EA 14 6A A5 A8 6A
- 63 A9 A9 AA B1 6B 02 33 BC 3C 04 19 16 D5 D6 D4 D4 3C 04 19 05 D7
- 1A 23 B0 D9 6B 02 35 C4 1A 31 B0 D8 87 01 30 72 B0 DB 6B 02 35 C6
- 1A 23 B0 DE 6B 02 35 C9 1A 1B A8 D6 78 E6 00 B5 A9 79 02 33 06 B0
- 85 A8 5B B0 DD 87 01 2F 63 B0 E0 6B 02 35 CB 14 6A C8 78 AC 03 E2
- AF B2 6A E8 6B 03 33 B1 A9 6A F7 6B 02 35 AD AA 6A F8 6B 02 35 6B
- 01 34 78 AE 00 A8 B0 6A D3 36 01 78 CB 06 EA DA B0 6A E6 88 01 30
- 07 AD DA 78 C8 05 7C 03 8D 05 B3 6B 02 35 6A AC AF B3 6B 02 33 6B
- 00 34 6A E6 78 AB 02 8E 05 B4 6B 02 35 AF 6B 00 34 78 E6 01 8E 05
- B3 6B 02 35 6A AC AF B3 6B 02 33 6B 00 34 6A E6 6A AB AB 87 01 2D
- FF 6E A9 8E 06 B5 6B 02 35 B0 6B 00 34 6A E6 87 01 2D FF 5C 16 01
- 1A FE E4 AF DE 6B 02 35 C9 1A 0C AF DD 87 01 2F 72 AF E3 6B 02 35
- CE 14 78 C8 02 DA AB 78 AF 03 D6 B0 6A E6 AC 88 01 2D 07 7D 02 AB
- DA 78 C8 03 B1 B0 6A E6 AC B2 6A E6 6A C8 78 AB 01 B2 B0 6A E6 6A
- AC AC 78 C8 00 1A FE 9D AF D9 6B 02 35 C4 1A FE 5B 93 EF 92 EE 7C
- 06 75 03 16 02 DA AB DA 78 C8 01 14 6B 02 35 AC 88 01 30 FE 8D 7C
- 04 A8 6A A5 A8 6A 63 A8 A8 B0 6B 02 33 1A 04 92 EC 16 01 8E 01 AC
- A9 69 35 23 13 73 16 01 A9 AB 88 01 2D 06 AB D4 AB 77 50 03 AB AA
- AA 5E 16 3C 04 19 18 95 1A FE 79 A8 DA 30 C8 1A 09 AE B6 6B 02 35
- 89 02 72 92 EA D6 B1 31 01 34 1A FE 59 DA AF 31 02 35 1A 08 B5 B2
- 6A E6 89 02 72 98 14 30 CB 1A FE 4C AE DA 30 C8 1A FE 36
- )
- 0. "0" 1. 16. -970. 3. 10. 21306. 70777. 22000. 28. 93. 12655. 42039. 9.
- 4004. 13301. 643. 2136. #\0 -1.
- ) )
- #Y(#:TOP-LEVEL-FORM-3 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
- WRITE-FLOAT REMOVE-OLD-DEFINITIONS
- #Y(WRITE-FLOAT
- #230Y(00 02 00 00 00 03 A9 86 38 2F A9 2D 01 3E 04 A8 24 02 04 D7 AF 2F
- 8D D8 AA D9 6B 02 2F 8A 00 04 AA 86 A7 19 89 00 37 C7 14 A8 AD 87
- 01 2D 32 AD B1 36 02 2F 8E AC 1A 80 42 D4 AA 5A 01 DA B0 2F 8D DB
- B0 2F 8D AA 1A 06 DA B1 2F 8D 7C 00 A8 24 08 76 16 01 AC B0 36 02
- 2F 8E C6 EC 1A 34 94 1A 47 AD B1 36 01 AB 2F 8E DB B1 2F 8D AD B1
- AA 36 01 2F 8E 1A 15 DA B2 2F 8D 7C 00 A8 AA 86 28 75 16 01 DB B1
- 2F 8D DA B1 2F 8D AB A9 79 01 34 03 16 01 0E 0A 25 0B 26 AE 86 39
- 22 1A 0A AE 86 3A 1C 1A 04 AE 86 3B 16 CA 1A 24 CB 1A 21 CC 1A 1E
- CD 1A 1B CE 1A 18 00 19 09 AE 85 3C 6A AE 85 39 69 AE 85 3A 68 AE
- 85 3B 67 AE 85 3C 66 00 14 8A 01 04 A8 23 0C 60 A8 B1 2F 8D AB 36
- 0B CF EE 74 05 BC 2F 85 19 09
- )
- "argument is not a float: ~S" DECODE-FLOAT-DECIMAL -1. #\- -2. 7. #\0 #\.
- 0. 1. *READ-DEFAULT-FLOAT-FORMAT*
- #S(HASH-TABLE EQ (LONG-FLOAT . 35.) (DOUBLE-FLOAT . 13.)
- (SINGLE-FLOAT . 7.) (SHORT-FLOAT . 1.)
- )
- #\E #\s #\f #\d #\L 10.
- ) )